home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1984 July to December
/
Ahoy_Magazine_84-Jul-Dec_1984_Double_L_unofficial.d64
/
64 space lanes
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
87 lines
1 poke54287,43:poke54286,52:gosub500:goto700
2 pl=3:gosub100
5 pokel,.:pokel+cc,7
10 j=15-(peek(56321)and15)
15 d=r(j)
35 l1=peek(l+d):ifl1=63thend=0:goto10
37 ifl1=4thenpo=po+5:gosub90
38 ifint(rnd(0)*10)=9thengosub50
40 pokel,32:l=l+d:pokel,.:pokel+cc,7:d=0:goto10
50 r=3+2*int(rnd(0)*10)
52 r1=((r-1)*40)
55 forx=1025+r1to1058+r1:pokex,63:pokex+cc,1:nextx
60 ifl>1024+r1andl<1059+r1thenpl=pl-1:gosub600
65 forx=1025+r1to1058+r1:pokex,32:nextx:return
90 poke54296,6:poke54296,0:ifpo>hsthenhs=po
92 print"[158]";po:poke1034,63:poke1034+cc,7
93 printtab(29)"[145][145][158]";hs:poke1053,63:poke1053+cc,7
94 ifpo/900=int(po/900)thengosub400
96 return
100 cc=54272:l=1521:d=0:hs=(peek(901)*256)+peek(900)
102 dimr(10):forx=0to10:reada:r(x)=a:nextx
105 poke53265,peek(53265)and239
110 poke53272,(peek(53272)and240)or12
120 print"[145][158]????????????????????????????????????????"
130 print"[145][156]????????????????????????????????????????[157][157]"
140 print"? ?[159]??[158]?[156]?"
150 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
160 print"[145]? ?[159]??[158]?[156]?"
170 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
180 print"[145]? ?[159]??[158]?[156]?"
190 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
200 print"[145]? ?[159]??[158]?[156]?"
210 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
220 print"[145]? ?[159]??[158]?[156]?"
230 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
240 print"[145]? ?[159]??[158]?[156]?"
250 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
260 print"[145]? ?[159]??[158]?[156]?"
270 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
280 print"[145]? ?[159]??[158]?[156]?"
290 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
300 print"[145]? ?[159]??[158]?[156]?"
310 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
320 print"[145]? ?[159]??[158]?[156]?"
330 print"[145]? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[159]??[158]?[156]?"
335 print"[145]? ?[159]??[158]?[156]?"
350 print"[145]??????????????????????????????????????[158]?[156]?[157][157][157]"
360 forx=0to39:poke1984+x,63:poke1984+cc+x,3:nextx
370 poke2022+cc,7:poke2023+cc,4
380 print"":printtab(38)"[158]s[157]p[157]a[157]c[157]e[157]l[157]a[157]n[157]e[157]s"
390 print"":print"[159]by,?robert?alonso"
395 print"[158]score:":print""tab(23)"[158]high:"
400 forx=1145to1161step2:forx1=0to720step80:pokex+x1,4:pokex+x1+cc,7:nextx1,x
410 forx=1162to1178step2:forx1=0to720step80:pokex+x1,4:pokex+x1+cc,7:nextx1,x
415 ifpo>0thenpo=po+5
420 poke53265,peek(53265)or16:return
500 print"[147]":poke53280,8:poke53281,6
520 print"[169] [169] [223][169] [223] [169] [223] [169] "
530 print"[145] [223] [223] [223]"
540 print"[223] [223] [146][223] [146][223] [223]"
550 print"[145][223] [146][223] "
560 print"[145] [146][169] [146][223] [146][169] [146][169]"
570 printtab(11)"by, robert alonso"
580 return
600 v=54296:forx=54272to54296:pokex,0:nextx
605 poke54273,30:poke54272,25:poke54277,15:poke54278,40
610 poke54276,129:forx=9to15step2:pokev,x:forx1=1to45:nextx1,x:pokev,0
620 poke54273,25:forx=15to10step-1:pokev,x:forx1=1to50:nextx1,x:pokev,0:pokev,1
630 poke54273,30:forx=15to0step-1:pokev,x:forx1=1to40:nextx1,x
640 ifpl=0then660
650 return
660 h1=int(hs/256):h2=hs-h1*256
670 poke900,h2:poke901,h1
680 print"[147]":poke53272,21:end
700 ifpeek(12288)<>24thenpoke900,0:poke901,0
704 forx=0to10:reada:nextx
705 poke56334,peek(56334)and254:poke1,peek(1)and251
710 forx=12288to12799:pokex,peek(x+41984):nextx
720 poke1,peek(1)or4:poke56334,peek(56334)or1
730 forx=0to7:reada:poke12288+x,a:nextx
740 forx=0to7:reada:poke12320+x,a:nextx
750 forx=0to7:poke12544+x,0:poke12792+x,255:nextx
760 poke52,48:poke56,48:clr:goto2
800 data0,-40,40,0,-1,-41,39,0,1,-39,41
810 data24,60,126,24,189,231,195,129
820 data0,0,0,24,24,0,0,0